Imports System.Xml
Imports System.Data.SqlClient
Public Class dEnteC
    'Public Function Existe(ByVal CodigoEnte As String, ByVal CodigoLocalidad As String) As Boolean
    '    Dim Parametros As ArrayList = New ArrayList
    '    Parametros.Add(New SqlParameter("@CodigoEnte", CodigoEnte))
    '    Parametros.Add(New SqlParameter("@CodigoLocalidad", CodigoLocalidad))
    '    Return (dConexion.Consultar("STORE_TblEnteCBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    'End Function
    'Public Function Insertar(ByVal CodigoEnte As String, ByVal RazonSocial As String, ByVal Direccion As String, ByVal TelCel As String, ByVal Mail As String, ByVal Estado As String, ByVal CodigoLocalidad As String) As Boolean
    '    Dim Parametros As ArrayList = New ArrayList
    '    Parametros.Add(New SqlParameter("@CodigoEnte", CodigoEnte))
    '    Parametros.Add(New SqlParameter("@RazonSocial", RazonSocial))
    '    Parametros.Add(New SqlParameter("@Direccion", Direccion))
    '    Parametros.Add(New SqlParameter("@TelCel", TelCel))
    '    Parametros.Add(New SqlParameter("@Mail", Mail))
    '    Parametros.Add(New SqlParameter("@Estado", Estado))
    '    Parametros.Add(New SqlParameter("@CodigoLocalidad", CodigoLocalidad))
    '    Return dConexion.ABM("STORE_TblEnteCINSERTAR", Parametros)
    'End Function
    'Public Function Eliminar(ByVal CodigoEnte As String, ByVal CodigoLocalidad As String) As Boolean
    '    Dim Parametros As ArrayList = New ArrayList
    '    Parametros.Add(New SqlParameter("@CodigoEnte", CodigoEnte))
    '    Parametros.Add(New SqlParameter("@CodigoLocalidad", CodigoLocalidad))
    '    Return dConexion.ABM("STORE_TblEnteCELIMINAR", Parametros)
    'End Function
    'Public Function Modificar(ByVal CodigoEnte As String, ByVal RazonSocial As String, ByVal Direccion As String, ByVal TelCel As String, ByVal Mail As String, ByVal Estado As String, ByVal CodigoLocalidad As String) As Boolean
    '    Dim Parametros As ArrayList = New ArrayList
    '    Parametros.Add(New SqlParameter("@CodigoEnte", CodigoEnte))
    '    Parametros.Add(New SqlParameter("@RazonSocial", RazonSocial))
    '    Parametros.Add(New SqlParameter("@Direccion", Direccion))
    '    Parametros.Add(New SqlParameter("@TelCel", TelCel))
    '    Parametros.Add(New SqlParameter("@Mail", Mail))
    '    Parametros.Add(New SqlParameter("@Estado", Estado))
    '    Parametros.Add(New SqlParameter("@CodigoLocalidad", CodigoLocalidad))
    '    Return dConexion.ABM("STORE_TblEnteCMODIFICAR", Parametros)
    'End Function
    'Public Function BuscarFiltrado(ByVal CodigoEnte As String, ByVal RazonSocial As String, ByVal Direccion As String, ByVal TelCel As String, ByVal Mail As String, ByVal Estado As String, ByVal CodigoLocalidad As String) As DataSet
    '    Dim Parametros As ArrayList = New ArrayList
    '    Parametros.Add(New SqlParameter("@CodigoEnte", CodigoEnte))
    '    Parametros.Add(New SqlParameter("@RazonSocial", RazonSocial))
    '    Parametros.Add(New SqlParameter("@Direccion", Direccion))
    '    Parametros.Add(New SqlParameter("@TelCel", TelCel))
    '    Parametros.Add(New SqlParameter("@Mail", Mail))
    '    Parametros.Add(New SqlParameter("@Estado", Estado))
    '    Parametros.Add(New SqlParameter("@CodigoLocalidad", CodigoLocalidad))
    '    Return dConexion.Consultar("STORE_TblEnteCBUSCARFILTRADO", Parametros)
    'End Function

    Public Function Existe(ByVal RazonSocial As String, ByVal CodigoEnte As String) As Boolean
        Dim salida As Boolean = False
        Dim Parametros As ArrayList = New ArrayList
        If RazonSocial <> "" Then
            Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        End If
        'If CodigoEnte <> "" Then
        Dim dts As DataSet = New DataSet()
        dts = dConexion.Consultar("STORE_TblEnteCBUSCARFILTRADO", Parametros)
        Dim row As DataRow
        For Each row In dts.Tables(0).Rows
            If row("CodigoEnte").ToString() <> CodigoEnte Then
                salida = True
            End If
        Next
        'End If
        'salida = (dConexion.Consultar("STORE_TblEnteCBUSCARFILTRADO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
        Return salida
    End Function
    Public Function Insertar(ByVal RazonSocial As String, ByVal Direccion As String, ByVal TelCel As String, ByVal Mail As String, ByVal CodigoLocalidad As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If RazonSocial <> "" Then
            Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))
        End If
        If TelCel <> "" Then
            Parametros.Add(New SqlParameter("@pETelCel", TelCel))
        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEMail", Mail))
        End If
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If
        Return dConexion.ABM("STORE_TblEnteCAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoEnte As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoEnte <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoEnte", CodigoEnte))
        End If
        Return dConexion.ABM("STORE_TblEnteCELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoEnte As String, ByVal RazonSocial As String, ByVal Direccion As String, ByVal TelCel As String, ByVal Mail As String, ByVal Estado As String, ByVal CodigoLocalidad As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoEnte <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoEnte", CodigoEnte))
        End If
        If RazonSocial <> "" Then
            Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))
        End If
        If TelCel <> "" Then
            Parametros.Add(New SqlParameter("@pETelCel", TelCel))
        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEMail", Mail))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If
        Return dConexion.ABM("STORE_TblEnteCModificar", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoEnte As String, ByVal RazonSocial As String, ByVal Direccion As String, ByVal TelCel As String, ByVal Mail As String, ByVal CodigoLocalidad As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoEnte <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoEnte", CodigoEnte))
        End If
        If RazonSocial <> "" Then
            Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))
        End If
        If TelCel <> "" Then
            Parametros.Add(New SqlParameter("@pETelCel", TelCel))
        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEMail", Mail))
        End If

        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If
        Return dConexion.Consultar("STORE_TblEnteCBUSCARFILTRADO", Parametros)
    End Function

End Class
